home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Info-Mac 4
/
Info_Mac IV CD-ROM (Pacific HiTech Inc.)(August 1994).iso
/
Development
/
General
/
PG PRO⁄PG Lite Demos
/
PG Writer π
/
PG PRO.GLBL
< prev
next >
Wrap
Text File
|
1994-03-28
|
7KB
|
142 lines
'===============================================================================
'= Copyright 1992 Staz™ Software, Inc. = Portions © 1992 Zedcor™, Inc. =
'= All rights reserved = All rights reserved =
'= "PG PRO.GLBL" = from "Runtime.GLBL" by Andy G. =
'===============================================================================
'_______________________________________________________________________________
'››››››››››››››››››››››››››››››››››› EQUATES ›››››››››››››››››››››››››››››››››››
'———————————————————————————————————————————————————————————————————————————————
'-------------------------------------------------------------------------------
:'PG:PRO CONSTANTS
'-------------------------------------------------------------------------------
_baseID = 4000'starting ID for resources
_tempID = 3500'ID for temporary resources
_typeFSS = _"fss "
_keyDirectObject = _"----"
_typeAEList = _"list"
_typeAppleEvent = _"aevt"
_kAEOpenApplication = _"oapp"
_kAEOpenDocuments = _"odoc"
_kAEPrintDocuments = _"pdoc"
_kAEQuitApplication = _"quit"
'-------------------------------------------------------------------------------
:'PG:PRO MENUS
'-------------------------------------------------------------------------------
_justifyItem = 12
'-------------------------------------------------------------------------------
:'PG:PRO USER DEFINED CONSTANTS
'-------------------------------------------------------------------------------
_pictCursor = _arrowCursor'cursor used over pict fields
_fingerCursor = 4000'hand w/pointer finger
_buttonCursor = _fingerCursor'cursor used over buttons
_ignoreSnglClk = _false'report single clicks in lists
_ignoreCmndPeriod = _false'if true, don't break on "."
_TEWndInset = 4'pixel inset for text editors
_closeItemSkipsDoids = _false'Cmnd-W closes doc - not doid?
'_______________________________________________________________________________
'››››››››››››››››››››››››››››››››››› GLOBALS ›››››››››››››››››››››››››››››››››››
'———————————————————————————————————————————————————————————————————————————————
'-------------------------------------------------------------------------------
:'RUNTIME
'-------------------------------------------------------------------------------
DIM gAction%'Event Action
DIM gSubAction%'Sub Action Number
DIM gWhichDialog%'result of DIALOG(0)
DIM gDialogValue%'result of DIALOG(Act)
DIM gWhichClass%'Current Window Class
DIM gActWindow%;0,gActiveWnd'Current Active window number
DIM gOutWindow%;0,gOutputWnd'Current Output window number
DIM gMessage1%;0,gWhichMenu%;0,gWhichButton%;0,gIsStationery;0
DIM gWhichField%;0,gWhichRefCon&;0,gMouseY%
DIM gMessage2%;0,gWhichItem%;0,gButtonValue%;0,gMouseX%
DIM gEventPtr&'Pointer to Event Record
DIM gEventRec;0,gWhat%,gMessage&,gWhen&,gWhereY%,gWhereX%,gModifiers%
DIM gClickStatus;0,gFieldWas;0,gOpenVol;0,gFileVol
DIM gControlHndl&;0,gFileType&
DIM gWhichObjElem%
DIM gItemName$;0,gControlTitle$;0,gWindowTitle$
DIM 32 gFileName$;0,32 gOpenName$,50 gKey$,gOutputWas
DIM gScreenDepth%
DIM gScreenRect;0,gScrnT%,gScrnL%,gScrnB%,gScrnR%'Main Monitor Size in Pixels
DIM gWhichWindow
'-------------------------------------------------------------------------------
:'OBJECT
'-------------------------------------------------------------------------------
'
' User item designations "*" set by PG PRO
' "-" standard user entries
' "+" free for user items
DIM RECORD gObject
DIM gObjSel'* neg if sel'd/not 1 if group
DIM gObjKind'* see object constants above
DIM gObjRef;0,gObjPenSz'* btn,fld ref num pr pensize
DIM gObjSelT,gObjSelL,gObjSelB,gObjSelR'* selection rect
DIM gObjT,gObjL,gObjB,gObjR'* object's rect
DIM gObjZType'* button/field type
DIM gObjUserTp&;0'- user 'TYPE' designator
DIM gObjLFont;0 ,gObjZJust' LMCD font# or field just
DIM gObjCtrlVal;0,gObjAutoReSz;0,gObjFillPat' button value or fill pat
DIM gObjUserHndl&;0'- user handle storage
DIM gObjLSize;0 ,gObjMin;0 ,gObjLinePat' LM size,scrl min,line pat
DIM gObjMax;0 ,gObjFRed' scroll btn max,fore red
DIM gObjUser1;0 ,gObjPgUpDn;0 ,gObjFGreen'+ scroll page,fore green
DIM gObjUser2;0 ,gObjCon;0 ,gObjFBlue'+ foreground blue
DIM gObjUser3;0 ,gObjElement;0,gObjResID;0,gObjBRed'+ STR# element,ResID,back red
DIM gObjUser4&;0,gObjHndl&;0 ,gObjBGreen'objHndl,back green
DIM gObjBlue' background blue
DIM END RECORD _objRecSz
'-------------------------------------------------------------------------------
:'MISC
'-------------------------------------------------------------------------------
DIM gResRef'res file ref num:FN replaceRes
DIM gInBackground'true if switched out by MF
'
DIM gUndoable,gUndoHndl&'(Ed Fltr) globals for undo
DIM gUndoStart,gUndoEnd'(Ed Fltr) sel range for undo
'
DIM gFileList&'handle to file list
DIM 16 gOpenType$'types of fields that may be opened
DIM gDirty'set if file needs to be saved
DIM gKissOfDeath'if non-zero then exit
DIM 32 gSaveName$'name of active document
DIM gSaveVol'vol ref of active doc
DIM gDblWnd'wnd # of dbl-clk'd list
DIM gDblRef'btn # of dbl-clk'd list
DIM gDblTime&'tks for dbl-clk'd list
DIM gDblClick'true if list was dbl-clicked
DIM gSilenceAudio'true if sounds disabled
DIM gI3cursor'tracks cursor over 3D btns
DIM gBigT,gBigL,gBigB,gBigR'generic big rectangle
'-------------------------------------------------------------------------------
DIM GLBLask& ,GLBLautoMenu& ,GLBLbtnAction&
DIM GLBLbuild& ,GLBLcheckName&,GLBLclose&
DIM GLBLcntrRes& ,GLBLcountObj& ,GLBLcursor&
DIM GLBLdrwCtrls& ,GLBLfield& ,GLBLfindMenu&
DIM GLBLfixEditor&,GLBLfixMenus& ,GLBLframeBtn&
DIM GLBLgetGroup& ,GLBLgetIName& ,GLBLgetObj&
DIM GLBLgetRef& ,GLBLgetText& ,GLBLgetWnd&
DIM GLBLgetWTitle&,GLBLinitRntm& ,GLBLinsetWnd&
DIM GLBLmouse& ,GLBLopenDoc& ,GLBLopenFile&
DIM GLBLptInObj& ,GLBLputObj& ,GLBLputWnd&
DIM GLBLrepRes& ,GLBLrepXRes& ,GLBLsetGroup&
DIM GLBLsetGrow& ,GLBLsetZoom& ,GLBLshowErr&
DIM GLBLtab& ,GLBLupdate& ,GLBLuseObjClr&
DIM GLBLsaveAs& ,GLBLcloseAll& ,GLBLblkNWhite&
DIM GLBLpntDpth&
DIM gChkResErr& ,gDelElement& ,gInsElement&
DIM gRepElement& ,gApndElement& ,gSortStrRes&
DIM gViewListItem&,gIndex2res& ,gRes2Index&
DIM gNewStr& ,gCountStr& ,gParseToComma&
DIM gLMCDappend& ,gLMCDremove& ,gParseFromComma&
DIM gLMCDfind&